home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 92
/
092.d81
/
crypt boot 92
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
77 lines
10 poke53280,0:poke53281,0:print"[147]";
20 poke55,0:poke56,96:clr
22 dv=peek(186):ifdv<8thendv=8
25 gosub60000
30 sys57812"toolbox 92",dv,0:poke781,0:poke782,192:sys65493
40 sys57812"cryptic 92",dv,0:poke781,0:poke782,96:sys65493
45 print"[147]"
50 sys49152,7,4,15,7,34,160,12
52 sys49152,7,2,13,5,31,160,15
54 sys49152,7,4,13,32,32,101+128,12
60 printtab(10)"[155][195][210][217][208][212][201][195] [195][210][207][211][211][215][207][210][196]"
62 printtab(10)"[163][163][163][163][163][163][163] [163][163][163][163][163][163][163][163][163]"
65 printtab(7)"1] [208]rint [208]uzzle
70 [153][163]7)"2] (NULL)rint (NULL)olution
75 printtab(7)"3] [211]olving [201]nstructions
77 [153][163]7)"4] (NULL)uzzle valxplanation
79 printtab(7)"5] [197]xit"
80 printtab(5)"[155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
81 sys49152,7,19,20,0,39,98,11
82 sys49152,7,23,24,0,39,98+128,11
83 sys49152,4,0:poke198,0
85 sys49152,3,0,0,1,14,20,160,"[208]ress 1-5 to select.
90 [161]k$:[139]k$[178]""[167]85
95 k[178][197](k$):[139]k[179]1[176] k[177]5[167]85
100 [145]k[141]1000,2000,3000,5000,4000
105 [137]85
110 :
1000 [158]49152,10,15,4:[158]49152,6,6,7,6,30,12
1002 [158]49152,3,0,0,1,14,20,160,"(NULL)rinter ready? [y/n]"
1005 [161]k$:[139]k$[178]""[167]1002
1010 [139]k$[179][177]"y"[167][158]49152,5,0:[142]
1012 [158]49152,10,4,3
1015 [158]49152,7,20,23,0,39,160,14
1020 [151]214,20:[153]:[153][163]15)"cont(NULL)rinting..."
1025 [158]24576:[158]49152,5,0:[142]
1030 :
2000 [158]49152,10,15,4:[158]49152,6,7,8,6,30,12
2002 [158]49152,3,0,0,1,14,20,160,"(NULL)rinter ready? [y/n]"
2005 [161]k$:[139]k$[178]""[167]2002
2010 [139]k$[179][177]"y"[167][158]49152,5,0:[142]
2012 [158]49152,10,4,3
2015 [158]49152,7,20,23,0,39,160,14
2020 [151]214,20:[153]:[153][163]15)"cont(NULL)rinting..."
2025 [158]24576[170]3:[158]49152,5,0:[142]
2030 :
3000 [153]"list":[158]49152,13,dv,[198]("\"),"cryptic instr 92"
3005 [158]49152,5,0:[142]
3010 :
4000 [158]49152,10,15,4:[158]49152,6,10,11,6,30,12
4002 [158]49152,3,0,0,1,14,20,160,"atnre (NULL)ou (NULL)ure? [y/n]"
4005 [161]k$:[139]k$[178]""[167]4002
4010 [139]k$[179][177]"y"[167][158]49152,5,0:[142]
4012 [151]55,0:[151]56,160:[156]
4050 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er%:[160]15
4055 [139]er%[179][177]63[167][128]
4060 [151]646,[194](53281)
4062 [153]"loadwaitload"[199](34)"hello connect"[199](34)",8"
4065 [153]"run"
4075 [151]631,13:[151]632,13:[151]633,13:[151]198,3:[128]
4080 :
5000 [153]"list":[158]49152,13,dv,[198]("\"),"explanation 92"
5005 [158]49152,5,0:[142]
5010 :
10000 [159]15,8,15,"s0:crypt boot 92":[160]15:[148]"crypt boot 92",8:[128]
60000 [153]"load":z$[178]" print# ":[151]214,10:[153]
60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]11:[153]z$:[130]
60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
60030 z$(0)[178]"len (NULL) (NULL) (NULL) (NULL) right$ len len (NULL) (NULL) (NULL) val (NULL) # 9 2"
60035 z$(1)[178]"by ascender (NULL)ucker & peekarbara (NULL)chulak"
60040 z$(2)[178]"(NULL)1.0 (len) 1992 by (NULL)oftdisk, right$nc."[170][199](13)
60050 z$(3)[178]"(NULL)his program is the copyrighted work
60060 z$(4)="of [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199]. [201]t is not"
60070 z$(5)="shareware or in the public domain."
60080 z$(6)="[210]eport illegal distribution of":z$(7)="this program by calling"
60090 z$(8)="1-800-831-2694 or 1-318-221-8718.":poke214,12:print
60100 fori=0to8:printtab(20-(len(z$(i))/2))""z$(i):next:return